home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue43 / construc / Listing1.pas next >
Encoding:
Pascal/Delphi Source File  |  1999-02-05  |  545 b   |  21 lines
  1. unit Unit2;
  2. interface
  3. uses
  4.   Windows, Messages, SysUtils, Classes, Graphics, Controls, ComObj, StdVcl,
  5.   CorbaObj, TDM43_TLB;
  6. type
  7.   TNewsgroupServer = class(TCorbaImplementation, INewsgroupServer)
  8.   private
  9.     { Private declarations }
  10.   public
  11.     { Public declarations }
  12.   end;
  13. implementation
  14. uses
  15.   CorbInit;
  16. initialization
  17.   TCorbaObjectFactory.Create('NewsgroupServerFactory', 
  18.     'NewsgroupServer', 'IDL:TDM43/NewsgroupServerFactory:1.0', INewsgroupServer,
  19.     TNewsgroupServer, iMultiInstance, tmSingleThread);
  20. end.
  21.